perm filename COMP.AL0[HAL,HE]1 blob sn#202096 filedate 1976-02-17 generic text, type T, neo UTF8
		;PROG
	XPROG
		;BLOCK
	XMVAR
		;
	22
		;$B1.INIT
	24
		;$B1._T6
	26
		;$B1.CARB_GRASP
	30
		;$B1.CARB
	32
		;$B1._T5
	34
		;$B1.PALLET_PLACE
	36
		;$B1._T4
	40
		;$B1.PALLET_GRASP
	42
		;$B1.PALLET
	44
		;$B1.CARB_SPOT
	46
		;$B1.PALLET_SPOT
	50
		;$B1.BASE
	52
		;$B1.BPARK1
	54
	0
	XMEXP
		;$B1.CARB_GRASP
	30
		;$B1._T6
	26
	0
	L1
	56
	XJUMP
	L2
L1:		;first argument
	XGTVAL
		;$B1.CARB_GRASP
	30
		;second argument
		;first argument
	XGTVAL
		;$B1._T6
	26
	XTINVRT
	XTTMUL
	XENDCLC
L2:	XMEXP
		;$B1.CARB
	32
		;$B1._T6
	26
	0
	L3
	60
	XJUMP
	L4
L3:		;first argument
	XGTVAL
		;$B1.CARB
	32
		;second argument
	XGTVAL
		;$B1._T6
	26
	XTTMUL
	XENDCLC
L4:	XMEXP
		;$B1.PALLET
	44
		;$B1._T5
	34
	0
	L5
	62
	XJUMP
	L6
L5:		;first argument
	XGTVAL
		;$B1.PALLET
	44
		;second argument
	XGTVAL
		;$B1._T5
	34
	XTTMUL
	XENDCLC
L6:	XMEXP
		;$B1.PALLET_GRASP
	42
		;$B1._T4
	40
	0
	L7
	64
	XJUMP
	L10
L7:		;first argument
	XGTVAL
		;$B1.PALLET_GRASP
	42
		;second argument
		;first argument
	XGTVAL
		;$B1._T4
	40
	XTINVRT
	XTTMUL
	XENDCLC
L10:	XMEXP
		;$B1.PALLET
	44
		;$B1._T4
	40
	0
	L11
	66
	XJUMP
	L12
L11:		;first argument
	XGTVAL
		;$B1.PALLET
	44
		;second argument
	XGTVAL
		;$B1._T4
	40
	XTTMUL
	XENDCLC
L12:		;Assignment
	XPUSH
	L13
	XCHNGE
		;$B1.BPARK1
	54
		;Assignment
	XGTVAL
		;$B1.BPARK1
	54
	XCHNGE
		;BARM
	14
		;Assignment
	XPUSH
	L14
	XCHNGE
		;BHAND
	16
		;COBLOCK
	XJUMP
	L15
L16:		;  COSTATEMENT
		;Move
	XMOVE
	L17
	4
	XTERMINATE
L21:		;  COSTATEMENT
		;Move
	XMOVE
	L22
	10
	XTERMINATE
L15:		;  EPILOG OF COBLOCK
	XSPROUT
	L16
	L21
	0
		;END COBLOCK
		;Assignment
	XPUSH
	L23
	XCHNGE
		;$B1.BASE
	52
		;Assignment
		;first argument
	XGTVAL
		;$B1.BASE
	52
		;second argument
	XPUSH
	L24
	XTTMUL
	XCHNGE
		;$B1.PALLET_SPOT
	50
		;Assignment
		;first argument
	XGTVAL
		;$B1.BASE
	52
		;second argument
	XPUSH
	L25
	XTTMUL
	XCHNGE
		;$B1.CARB_SPOT
	46
		;Assignment
	XPUSH
	L26
	XCHNGE
		;BHAND
	16
		;Assignment
	XGTVAL
		;$B1.PALLET_SPOT
	50
	XCHNGE
		;$B1.PALLET
	44
		;Affixment
		;Assignment
	XPUSH
	L27
	XCHNGE
		;$B1._T4
	40
	XMCLC
	64
		;$B1.PALLET
	44
	XMCLC
	66
		;$B1.PALLET_GRASP
	42
		;End of affixment
		;Affixment
		;Assignment
	XPUSH
	L30
	XCHNGE
		;$B1._T5
	34
		;Also do
	XMCHG
		;$B1.PALLET_PLACE
	36
	L31
	XJUMP
	L32
L31:		;Assignment
		;first argument
		;first argument
	XGTVAL
		;$B1.PALLET
	44
	XTINVRT
		;second argument
	XGTNEW
	XTTMUL
	XCHNGE
		;$B1._T5
	34
	XTERMINATE
L32:	XMCLC
	62
		;$B1.PALLET_PLACE
	36
		;End of affixment
		;Assignment
	XGTVAL
		;$B1.CARB_SPOT
	46
	XCHNGE
		;$B1.CARB
	32
		;Affixment
		;Assignment
	XPUSH
	L33
	XCHNGE
		;$B1._T6
	26
	XMCLC
	56
		;$B1.CARB
	32
	XMCLC
	60
		;$B1.CARB_GRASP
	30
		;End of affixment
		;Assignment
	XGTVAL
		;$B1.CARB_SPOT
	46
	XCHNGE
		;$B1.CARB
	32
		;Assignment
	XGTVAL
		;$B1.PALLET_SPOT
	50
	XCHNGE
		;$B1.PALLET
	44
		;WHILE LOOP
L34:	XPUSH
	L36
	XJUMPC
	2
	L35
		;BLOCK
	XMVAR
		;
	70
		;
	72
		;
	74
		;
	76
		;
	100
		;
	102
		;
	104
		;
	106
		;
	110
		;
	112
		;$B2._T9
	114
		;$B2._T7
	116
	0
	XMEXP
		;BARM
	14
		;$B2._T9
	114
	0
	L37
	120
	XJUMP
	L40
L37:		;first argument
	XGTVAL
		;BARM
	14
		;second argument
	XGTVAL
		;$B2._T9
	114
	XTTMUL
	XENDCLC
L40:	XMEXP
		;BARM
	14
		;$B2._T9
	114
	0
	L41
	122
	XJUMP
	L42
L41:		;first argument
	XGTVAL
		;BARM
	14
		;second argument
	XGTVAL
		;$B2._T9
	114
	XTTMUL
	XENDCLC
L42:	XMEXP
		;$B1.PALLET
	44
		;$B2._T7
	116
	0
	L43
	124
	XJUMP
	L44
L43:		;first argument
	XGTVAL
		;$B1.PALLET
	44
		;second argument
	XGTVAL
		;$B2._T7
	116
	XTTMUL
	XENDCLC
L44:	XMEXP
		;BARM
	14
		;$B2._T7
	116
	0
	L45
	126
	XJUMP
	L46
L45:		;first argument
	XGTVAL
		;BARM
	14
		;second argument
	XGTVAL
		;$B2._T7
	116
	XTTMUL
	XENDCLC
L46:		;Move
	XMOVE
	L47
	4
		;Center
	XCENTER
	L51
	14
		;Affixment
		;Assignment
		;first argument
		;first argument
	XGTVAL
		;BARM
	14
	XTINVRT
		;second argument
	XGTVAL
		;$B1.CARB
	32
	XTTMUL
	XCHNGE
		;$B2._T7
	116
		;Also do
	XMCHG
		;$B1.CARB
	32
	L52
	XJUMP
	L53
L52:		;Assignment
		;first argument
		;first argument
	XGTVAL
		;BARM
	14
	XTINVRT
		;second argument
	XGTNEW
	XTTMUL
	XCHNGE
		;$B2._T7
	116
	XTERMINATE
L53:	XMCLC
	126
		;$B1.CARB
	32
		;End of affixment
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.PALLET_PLACE
	36
		;second argument
	XPUSH
	L54
	XTVADD
		;second argument
		;first argument
	XGTVAL
		;$B2._T7
	116
	XTINVRT
	XTTMUL
	XCHNGE
		;
	110
		;first argument
	XGTVAL
		;$B1.PALLET_PLACE
	36
		;second argument
		;first argument
	XGTVAL
		;$B2._T7
	116
	XTINVRT
	XTTMUL
	XCHNGE
		;
	112
	XMOVE
	L55
	4
		;Move
	XMOVE
	L60
	10
		;Unfixment
	XDCLC
	126
		;$B1.CARB
	32
		;Also do
	XMCHG
		;$B1.CARB
	32
	L61
	XJUMP
	L62
L61:		;Assignment
		;first argument
		;first argument
	XGTVAL
		;BARM
	14
	XTINVRT
		;second argument
	XGTNEW
	XTTMUL
	XCHNGE
		;$B2._T7
	116
	XTERMINATE
L62:		;End of unfixment
		;Affixment
		;Assignment
		;first argument
		;first argument
	XGTVAL
		;$B1.PALLET
	44
	XTINVRT
		;second argument
	XGTVAL
		;$B1.CARB
	32
	XTTMUL
	XCHNGE
		;$B2._T7
	116
		;Also do
	XMCHG
		;$B1.CARB
	32
	L63
	XJUMP
	L64
L63:		;Assignment
		;first argument
		;first argument
	XGTVAL
		;$B1.PALLET
	44
	XTINVRT
		;second argument
	XGTNEW
	XTTMUL
	XCHNGE
		;$B2._T7
	116
	XTERMINATE
L64:	XMCLC
	124
		;$B1.CARB
	32
		;End of affixment
		;Move
	XMOVE
	L65
	4
		;Center
	XCENTER
	L67
	14
		;Affixment
		;Assignment
		;first argument
		;first argument
	XGTVAL
		;BARM
	14
	XTINVRT
		;second argument
	XGTVAL
		;$B1.PALLET
	44
	XTTMUL
	XCHNGE
		;$B2._T9
	114
		;Also do
	XMCHG
		;$B1.PALLET
	44
	L70
	XJUMP
	L71
L70:		;Assignment
		;first argument
		;first argument
	XGTVAL
		;BARM
	14
	XTINVRT
		;second argument
	XGTNEW
	XTTMUL
	XCHNGE
		;$B2._T9
	114
	XTERMINATE
L71:	XMCLC
	122
		;$B1.PALLET
	44
		;End of affixment
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.PALLET
	44
		;second argument
	XPUSH
	L72
	XTVADD
		;second argument
		;first argument
	XGTVAL
		;$B2._T9
	114
	XTINVRT
	XTTMUL
	XCHNGE
		;
	102
		;first argument
	XGTVAL
		;$B1.CARB_SPOT
	46
		;second argument
		;first argument
	XGTVAL
		;$B2._T9
	114
	XTINVRT
	XTTMUL
	XCHNGE
		;
	104
	XMOVE
	L73
	4
		;Move
	XMOVE
	L76
	10
		;Unfixment
	XDCLC
	122
		;$B1.PALLET
	44
		;Also do
	XMCHG
		;$B1.PALLET
	44
	L77
	XJUMP
	L100
L77:		;Assignment
		;first argument
		;first argument
	XGTVAL
		;BARM
	14
	XTINVRT
		;second argument
	XGTNEW
	XTTMUL
	XCHNGE
		;$B2._T9
	114
	XTERMINATE
L100:		;End of unfixment
		;Move
		;first argument
	XGTVAL
		;$B1.PALLET_GRASP
	42
		;second argument
	XPUSH
	L101
	XTVADD
	XCHNGE
		;
	76
	XMOVE
	L102
	4
		;Center
	XCENTER
	L105
	14
		;Affixment
		;Assignment
		;first argument
		;first argument
	XGTVAL
		;BARM
	14
	XTINVRT
		;second argument
	XGTVAL
		;$B1.CARB
	32
	XTTMUL
	XCHNGE
		;$B2._T9
	114
		;Also do
	XMCHG
		;$B1.CARB
	32
	L106
	XJUMP
	L107
L106:		;Assignment
		;first argument
		;first argument
	XGTVAL
		;BARM
	14
	XTINVRT
		;second argument
	XGTNEW
	XTTMUL
	XCHNGE
		;$B2._T9
	114
	XTERMINATE
L107:	XMCLC
	120
		;$B1.CARB
	32
		;End of affixment
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.CARB
	32
		;second argument
	XPUSH
	L110
	XTVADD
		;second argument
		;first argument
	XGTVAL
		;$B2._T9
	114
	XTINVRT
	XTTMUL
	XCHNGE
		;
	72
		;first argument
	XGTVAL
		;$B1.PALLET_SPOT
	50
		;second argument
		;first argument
	XGTVAL
		;$B2._T9
	114
	XTINVRT
	XTTMUL
	XCHNGE
		;
	74
	XMOVE
	L111
	4
		;Move
	XMOVE
	L114
	10
		;Unfixment
		;End of unfixment
		;Move
	XMOVE
	L115
	4
		;Assignment
	XGTVAL
		;$B1.PALLET
	44
	XCHNGE
		;$B1.PALLET_SPOT
	50
		;Assignment
	XGTVAL
		;$B1.CARB
	32
	XCHNGE
		;$B1.CARB_SPOT
	46
		;Block end cleanup
	XKVAR
		;
	70
		;
	72
		;
	74
		;
	76
		;
	100
		;
	102
		;
	104
		;
	106
		;
	110
		;
	112
		;$B2._T9
	114
		;$B2._T7
	116
	0
		;End of BLOCK
	XJUMP
	L34
L35:		;END WHILE
		;Block end cleanup
	XKVAR
		;
	22
		;$B1.INIT
	24
		;$B1._T6
	26
		;$B1.CARB_GRASP
	30
		;$B1.CARB
	32
		;$B1._T5
	34
		;$B1.PALLET_PLACE
	36
		;$B1._T4
	40
		;$B1.PALLET_GRASP
	42
		;$B1.PALLET
	44
		;$B1.CARB_SPOT
	46
		;$B1.PALLET_SPOT
	50
		;$B1.BASE
	52
		;$B1.BPARK1
	54
	0
		;End of BLOCK
	XENDP
		;End of PROG